home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _spatience / spatience / scripts / mindwarp < prev    next >
Encoding:
Text File  |  1992-07-23  |  1.6 KB  |  103 lines
  1. |
  2. | Rules for Mindwarp Patience
  3. | Written by N.Vickers
  4. |
  5. SCRIPT_TYPE 1
  6. |
  7. BEGIN "Mindwarp patience"
  8.  
  9.   FLAGS ClickFly AnimateFly
  10.   PACKS 2
  11.   WIDTH 18 * CW + 42
  12.   HEIGHT 1200
  13.   ZeroToWin 104 - CARDSIN$2
  14.  
  15.   FOR stack = 0 TO 1
  16.     FOR row = 0 TO 1
  17.       STACK
  18.         X 14 * CW + 40 + stack * CW
  19.         Y 16 + CH * row
  20.         FIRST 1
  21.         MAX 13
  22.         DRAGUPTO 0
  23.         JoinOffset 1
  24.         FLAGS PaintLast DeepCheck AutoFly ClickFly JoinSS__
  25.         ID 2
  26.       END
  27.     END
  28.   END
  29.  
  30.   FOR stack = 2 TO 3
  31.     FOR row = 0 TO 1
  32.       STACK
  33.         X 14 * CW + 40 + stack * CW
  34.         Y 16 + CH * row
  35.         FIRST 13
  36.         MAX 13
  37.         DRAGUPTO 0
  38.         JoinOffset -1
  39.         FLAGS PaintLast DeepCheck AutoFly ClickFly JoinSS__
  40.         ID 2
  41.       END
  42.     END
  43.   END
  44.  
  45.   FOR stack = 0 to 6
  46.     STACK
  47.       X stack * CW + 12
  48.       Y 16
  49.       FIRST 13
  50.       MAX 29
  51.       JoinOffset -1
  52.       DEAL 9 - stack , 2 , 3 , 9 - stack
  53.       FLAGS ClickFly JoinSS__
  54.       ID 1
  55.     END
  56.   END
  57.  
  58.   FOR stack = 7 to 13
  59.     STACK
  60.       X stack * CW + 26
  61.       Y 16
  62.       FIRST 1
  63.       MAX 29
  64.       JoinOffset 1
  65.       DEAL stack - 4 , 2 , 3 , stack - 4
  66.       FLAGS ClickFly JoinSS__
  67.       ID 1
  68.     END
  69.   END
  70.  
  71. |  FOR row = 0 TO 3
  72. |    STACK
  73. |      X ( row + 14 ) * CW + 40
  74. |      Y 338
  75. |      MAX 1
  76. |      DRAGUPTO 1
  77. |      FLAGS ClickFly
  78. |      ID 1
  79. |    END
  80. |  END
  81.  
  82.   STACK
  83.     X 14 * CW + 40
  84.     Y 16 + 2 * CH
  85.     MAX 0
  86.     DEAL 24
  87.     DEALTO 4,3
  88.     DRAGUPTO 0
  89.     FLAGS PaintBack PaintCount
  90.     ID 3
  91.   END
  92.  
  93.   STACK
  94.     X 15 * CW + 40
  95.     Y 16 + 2 * CH
  96.     MAX 0
  97.     DRAGUPTO 1
  98.     FLAGS PaintLast
  99.     ID 4
  100.   END
  101.  
  102. END
  103.